(ffap-read-file-or-url): Eliminate reliance of the call to

`completing-read' on a recently fixed bug.

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 668700a5c1f23d57eaa547a2e19bff0e48c8e2a3..b249ce8daa0bf86943ae05dabfdfeb1dd96288a6 100644 (file)
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -1216,7 +1216,7 @@ which may actually result in an url rather than a filename."
             'ffap-read-file-or-url-internal
             dir
             nil
-            (if dir (cons guess (length dir)) guess)
+            (if dir (cons guess (1+ (length dir))) guess)
             (list 'file-name-history))))
     ;; Do file substitution like (interactive "F"), suggested by MCOOK.
     (or (ffap-url-p guess) (setq guess (substitute-in-file-name guess)))